CD Fun House 7/CD FunHouse 7 For The Macintosh (Wayzata)(1992).iso/• The Arcade •/Sword Play •••/Sword Play еее/card_2350.txt

Text File | 1990-10-02 | 15KB | 714 lines

-- card: 2350 from stack: in
-- bmap block id: 9378
-- flags: 4000
-- background id: 2143
-- name: Off/Def
----- HyperTalk script -----
on idle
  global StartTime
  global SetPass
  global MissedAttack

  if (the seconds >= 10 + StartTime) and (not SetPass) then
    put true into MissedAttack
    go card "Figure Attack"
  end if
end idle

on openCard
  global StartTime
  global GoneStatus

  if Not GoneStatus then
    put the seconds into StartTime
  end if
  put false into GoneStatus
end openCard



-- part 4 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=60 top=39 right=137 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 1 into x
  if YourOff <> x Then
    set hilite of button YourOff to false
    If YourOff = 2 then
      hide button 11
      hide button 14
      hide button 17
    else
      hide button 11
      hide button 12
      hide button 14
      hide button 15
      hide button 17
      hide button 18
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=90 top=39 right=137 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Center
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 2 into x
  if YourOff <> x then
    set hilite of button YourOff to false
    If YourOff = 1 then
      show button 11
      show button 14
      show button 17
    else
      hide button 12
      hide button 15
      hide button 18
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=119 top=39 right=137 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 3 into x
  if YourOff <> x then
    set hilite of button YourOff to false
    If YourOff = 1 then
      show button 11
      show button 12
      show button 14
      show button 15
      show button 17
      show button 18
    else
      if YourOff = 2 then
        show button 12
        show button 15
        show button 18
      end if
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=158 right=173 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: High
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 4 into x
  if YourOff <> x then
    set hilite of button YourOff to false
    If YourOff = 1 then
      show button 11
      show button 12
      show button 14
      show button 15
      show button 17
      show button 18
    else
      if YourOff = 2 then
        show button 12
        show button 15
        show button 18
      end if
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=190 right=205 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mid
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 5 into x
  if YourOff <> x then
    set hilite of button YourOff to false
    If YourOff = 1 then
      show button 11
      show button 12
      show button 14
      show button 15
      show button 17
      show button 18
    else
      if YourOff = 2 then
        show button 12
        show button 15
        show button 18
      end if
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=225 right=240 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Low
----- HyperTalk script -----
on mouseUp
  global YourOff
  put 6 into x
  if YourOff <> x then
    set hilite of button YourOff to false
    If YourOff = 1 then
      show button 11
      show button 12
      show button 14
      show button 15
      show button 17
      show button 18
    else
      if YourOff = 2 then
        show button 12
        show button 15
        show button 18
      end if
    end if
    set hilite of button x to true
    put x into YourOff
  end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=230 top=282 right=328 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help Index
----- HyperTalk script -----
on mouseUp
  push this card
  visual effect iris open slowly
  go to card "Sword Play Help Index"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=100 top=284 right=307 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attack Help
----- HyperTalk script -----
on mouseUp
  push This Card
  visual effect iris open slowly
  go card "Offense Help Start"
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=285 right=306 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Defense Help
----- HyperTalk script -----
on mouseUp
  push This card
  visual effect iris open slowly
  go card "Defense Help Start"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=145 right=163 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Left
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 1 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      show button 1
    else
      if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
        show button 1
        show button 2
      end if
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=381 top=145 right=163 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Center
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 2 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
      show button 2
    else
      hide button 1
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=145 right=163 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Right
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 3 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      hide button 2
    else
      hide button 1
      hide button 2
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=177 right=195 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Left
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 4 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      show button 1
    else
      if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
        show button 1
        show button 2
      end if
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=381 top=177 right=195 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Center
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 5 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
      show button 2
    else
      hide button 1
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=177 right=195 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Right
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 6 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      hide button 2
    else
      hide button 1
      hide button 2
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=209 right=227 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Left
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 7 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      show button 1
    else
      if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
        show button 1
        show button 2
      end if
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=381 top=209 right=227 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Center
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 8 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
      show button 2
    else
      hide button 1
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=209 right=227 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Right
----- HyperTalk script -----
on mouseUp
  global YourDef
  put 9 into x
  if YourDef <> x Then
    put YourDef into it
    add 9 to it
    set hilite of button it to false
    if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
      hide button 2
    else
      hide button 1
      hide button 2
    end if
    put x into YourDef
    add 9 to x
    set hilite of button x to true
  end if
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=373 top=316 right=340 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global GoneStatus
  put true into GoneStatus
  go card "Player Status"
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=289 right=301 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Password
----- HyperTalk script -----
on mouseUp
  global SetPass
  ask password "Please enter password"
  if it = 2170878455 then
    put true into SetPass
    show menubar
    set userlevel to 5
  else
    put false into SetPass
  end if
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=201 top=36 right=141 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global MissedAttack
  put false into MissedAttack
  go card "Figure Attack"
end mouseUp


-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=360 top=3 right=22 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card "Sneak Out"
end mouseUp